﻿Public Class clsSysParam
    Public Function selectMesSwitch() As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "mes_switch")
        If IsNothing(dt) Then
            selectMesSwitch = New DataTable
        Else
            selectMesSwitch = dt
        End If
    End Function

    Public Function selectMesWebSite() As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.t_sys_param WHERE param_key = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "mes_website")
        If IsNothing(dt) Then
            selectMesWebSite = New DataTable
        Else
            selectMesWebSite = dt
        End If
    End Function
End Class
